home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ozsi 9
/
Ozsi_09_1998_Tide_Side_B.d64
/
countdown _rtn
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
399b
|
13 lines
0 rem"[141][147][158]tomz/tide/the dark realm
9 [153]"load":[151]53281,0:[151]53280,0:[153]
10 ti$[178]"000000":[153]"you will destruct in
11 poke1148,19:poke1149,5:poke1150,3:poke1151,15:poke1152,14:poke1153,4
12 poke1154,19:poke2020,20:poke2021,9:poke2022,4:poke2023,5
13 poke56292,2:poke56293,4:poke56294,6:poke56295,5
20 c=180-int(ti/60):ifc<0thenc=0
30 s$=right$("00"+mid$(str$(c),2),3)
40 print s$;chr$(145)
50 goto20
60 rem*a variation on the timer rtn
70 rem*use it in your own progs/tomz